home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / tls / tls074c.sunsparc.Z / tls074c.sunsparc / lib / vtcl / tests / offset.tcl < prev    next >
Encoding:
Text File  |  1995-07-20  |  1.6 KB  |  85 lines
  1. # CVS $Id: offset.tcl,v 1.1 1995/02/03 17:15:46 zibi Exp $
  2.  
  3. proc quitCB {cbs} {
  4.     VtClose
  5. }
  6.  
  7. proc textCB {cbs} {
  8.     set w [keylget cbs widget]
  9.     set val [keylget cbs value]
  10.     VtSetValues $w -leftOffset $val
  11.     VtSetValues $w -rightOffset $val
  12.     VtSetValues $w -topOffset $val
  13.     VtSetValues $w -bottomOffset $val
  14. }
  15.  
  16. proc numCB {cbs} {
  17.     set val [keylget cbs value]
  18.     set num [ctype -failindex pos digit $val]
  19.     if {!$num} {
  20.         set str [csubstr $val 0 $pos]
  21.         set w [keylget cbs widget]
  22.         VtSetValues $w -value $str
  23.     }
  24. }
  25.  
  26. set app [VtOpen marginoffsettest]
  27.  
  28. set form [VtFormDialog $app.form]
  29.  
  30. set text [VtText $form.text \
  31.     -activateCallback textCB \
  32.     -valueChangedCallback numCB \
  33.     -topSide FORM \
  34.     -leftSide FORM \
  35.     -rightSide FORM]
  36.  
  37. set inner [VtForm $form.inner \
  38.     -borderWidth 2 \
  39.     -topSide $text \
  40.     -leftSide FORM \
  41.     -rightSide FORM]
  42.  
  43. set text2 [VtText $inner.text2 \
  44.     -activateCallback textCB \
  45.     -valueChangedCallback numCB \
  46.     -topSide FORM \
  47.     -leftSide FORM \
  48.     -rightSide FORM]
  49.  
  50. set text3 [VtText $inner.text3 \
  51.     -activateCallback textCB \
  52.     -valueChangedCallback numCB \
  53.     -topSide $text2 \
  54.     -leftSide FORM \
  55.     -bottomSide FORM \
  56.     -rightSide FORM]
  57.  
  58. set inner2 [VtForm $form.inner2 \
  59.     -borderWidth 2]
  60.  
  61. set text4 [VtText $inner2.text4 \
  62.     -activateCallback textCB \
  63.     -valueChangedCallback numCB]
  64.  
  65. set text5 [VtText $inner2.text5 \
  66.     -activateCallback textCB \
  67.     -valueChangedCallback numCB]
  68.  
  69. set quit [VtPushButton $form.quit \
  70.     -callback quitCB \
  71.     -leftSide FORM \
  72.     -topSide $inner2 \
  73.     -bottomSide FORM]
  74.  
  75. set bogus [VtPushButton $form.bogus \
  76.     -leftSide $quit \
  77.     -topSide $inner2 \
  78.     -rightSide FORM \
  79.     -bottomSide FORM]
  80.  
  81. VtShow $form
  82.  
  83. VtMainLoop
  84.  
  85.